<%@  language="VBScript" %>
<%  Option Explicit %>
<!--#include virtual="adovbs.inc"-->
<%

    Dim objConn, objRSCustomers, objRSAlbums, objRSPhotos
    Dim strSQL
    
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.ConnectionString = "dsn=Developer;uid=JohnNgo;pwd=jo2.0G$!;"        
    objConn.Open
    
    
    strSQL = "DELETE FROM customers"
    Set objRSCustomers = Server.CreateObject("ADODB.Recordset")
    objRSCustomers.Open strSQL, objConn, 1, 3, 1
	
	response.Write ("Deleted customers table.")

    'objRSCustomers.Close
    set objRSCustomers = Nothing
    response.Write ("Done customers table.")

    strSQL = "DELETE FROM photoAlbums"
    Set objRSAlbums = Server.CreateObject("ADODB.Recordset")
    objRSAlbums.Open strSQL, objConn, 1, 3, 1
    response.Write ("Deleted albums table.")
    'objRSAlbums.Close
    set objRSAlbums = Nothing
    response.Write ("Deleted album table.")
    
    strSQL = "DELETE FROM photos"
    Set objRSPhotos = Server.CreateObject("ADODB.Recordset")
    objRSPhotos.Open strSQL, objConn, 1, 3, 1
    response.Write ("Deleted photos table.")
    'objRSPhotos.Close
    set objRSPhotos = Nothing
    response.Write ("Done photos table.")
    objConn.Close
    set objConn = Nothing
    
    %>
